﻿#VisualFreeBasic_Form#  Version=5.5.4
Locked=0

[Form]
Name=Form点击效果
ClassStyle=CS_VREDRAW,CS_HREDRAW,CS_DBLCLKS
ClassName=
WinStyle=WS_VISIBLE,WS_EX_CONTROLPARENT,WS_EX_TOPMOST,WS_EX_TOOLWINDOW,WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_POPUP
Style=0 - 无边框
Icon=
Caption=
StartPosition=1 - 屏幕中心
WindowState=0 - 正常
Enabled=True
Repeat=True
Left=0
Top=0
Width=45
Height=45
TopMost=False
Child=False
MdiChild=False
TitleBar=False
SizeBox=False
SysMenu=True
MaximizeBox=True
MinimizeBox=True
Help=False
Hscroll=False
Vscroll=False
MinWidth=0
MinHeight=0
MaxWidth=0
MaxHeight=0
NoActivate=True
MousePass=True
TransPer=0
TransColor=&HFFFFFFFF
Shadow=0 - 无阴影
BackColor=&HFFFFFFFF
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False
AcceptFiles=False

[Timer]
Name=Timer1
Index=-1
Interval=50
Enabled=True
Left=21
Top=78
Tag=


[AllCode]
Type F4_chuan
   hWndForm As hWnd
   jj As Long '递增计数，
   an As Long  'WM_LBUTTONDOWN  WM_RBUTTONDOWN 519
End Type
Dim Shared F4_Form(7) As F4_chuan, F4_Index As Long
'
Sub F4_启动点击效果(x As Long, y As Long, an As Long)
   'Dim Po As Point = (x, y)
   'Dim ah As hWnd = WindowFromPoint(po)
   'Print Hex(ah)
   SetWindowPos(F4_Form(F4_Index).hWndForm, HWND_TOPMOST, x -20, y -20, 0, 0, SWP_NOSIZE Or SWP_NOACTIVATE Or SWP_NOOWNERZORDER)
   'FF_Control_SetLoc(F4_Form(F4_Index).hWndForm, x -16, y -16)
   'SetWindowZ( F4_Form(F4_Index).hWndForm,HWND_TOPMOST)
   
   F4_Form(F4_Index).jj = 0
   F4_Form(F4_Index).an = an
   F4_Index += 1
   If F4_Index > 7 Then F4_Index = 0
End Sub




